//DBASXSIE JOB (8BRJ6A,3B42),'ZWADA D.M.',CLASS=X,                      00001
//      MSGCLASS=Y,NOTIFY=DBASXS                                        00001
/*JOBPARM R=3B42                                                        00005*10
//JESWTR  OUTPUT JESDS=ALL,DEST=LOCAL                                   00006*10
//*
//********************************************************************* 00090*10
//*  STEP    PROGRAM                  PURPOSE                         * 00091*10
//* ======   ==========  =============================================* 00092*10
//*  JS010   IEBGENER    COPY UNLOAD DATASET                          * 00093*10
//*                                                                   * 00094*10
//*    RESTART:   RESTART AT JOBSTEP JS010                            * 00095*10
//********************************************************************* 00096*10
//JS010   EXEC PGM=IEBGENER,
//          REGION=0K                                                   00098*10
//SYSUT1    DD DSN=PSFTX.DTYUL.SFTXTY01.DTYTRCV1.SAVED,                 00099*10
//             DISP=OLD                                                 00100*10
//SYSUT2    DD DSN=PSFTX.DTYAT.VIEPIE.GOODRCV1(+1),                     00101*10
//             DISP=(NEW,CATLG,DELETE),                                 00102*10
//             MGMTCLAS=MC0032,                                         00103*10
//             SPACE=(CYL,(15,15),RLSE),                                00104*10
//             DCB=(SYS3.DSCB,BUFNO=30)                                 00107*10
//SYSPRINT  DD SYSOUT=*,                                                00108*10
//             OUTPUT=*.JESWTR                                          00109*10
//SYSDUMP   DD SYSOUT=*,                                                00110*10
//             OUTPUT=*.JESWTR                                          00111*10
//SYSIN     DD DUMMY                                                    00112*10
//*                                                                     00125*10
//********************************************************************* 00090*10
//*  STEP    PROGRAM                  PURPOSE                         * 00091*10
//* ======   ==========  =============================================* 00092*10
//*  JS020   IEBGENER    COPY UNLOAD DATASET                          * 00093*10
//*                                                                   * 00094*10
//*    RESTART:   RESTART AT JOBSTEP JS020                            * 00095*10
//********************************************************************* 00096*10
//JS020   EXEC PGM=IEBGENER,
//          REGION=0K                                                   00098*10
//SYSUT1    DD DSN=PSFTX.DTYUL.SFTXTY01.DTYTRCV2.SAVED,                 00099*10
//             DISP=OLD                                                 00100*10
//SYSUT2    DD DSN=PSFTX.DTYAT.VIEPIE.GOODRCV2(+1),                     00101*10
//             DISP=(NEW,CATLG,DELETE),                                 00102*10
//             MGMTCLAS=MC0032,                                         00103*10
//             SPACE=(CYL,(60,10),RLSE),                                00104*10
//             DCB=(SYS3.DSCB,BUFNO=30)                                 00107*10
//SYSPRINT  DD SYSOUT=*,                                                00108*10
//             OUTPUT=*.JESWTR                                          00109*10
//SYSDUMP   DD SYSOUT=*,                                                00110*10
//             OUTPUT=*.JESWTR                                          00111*10
//SYSIN     DD DUMMY                                                    00112*10
//*                                                                     00125*10
//                                                                      00125*10
//********************************************************************* 00335
//*  STEP    PROGRAM                  PURPOSE                         * 00336
//* ======   ==========  =============================================* 00337
//* JS070    TLSPDRTR    DRA TRIGGER STEP                               00338*25
//*    RESTART:  JS070 AFTER DETERMINING CAUSE OF ABEND               * 00339*25
//********************************************************************* 00340
//JS070    EXEC PGM=TLSPDRTR,                                           00341*25
//             PARM=SFPDBA                                              00342
//TLSTRGGR  DD DSN=SYS4.DRA.TRIGGER,                                    00343
//             DISP=(SHR,KEEP,KEEP)                                     00344
//SYSPRINT  DD SYSOUT=*,                                                00351
//             OUTPUT=*.JESWTR                                          00352
//TLSNREPT  DD SYSOUT=*,                                                00353
//             OUTPUT=*.JESWTR                                          00354
//CNTRLCDS  DD *                                                        00345
PSFPD.DBAVL.DRA.CNTL                        (-0)(-3)G                   00346
/*                                                                      00350
//*PSFPD.DBAVL.DRA.CNTL                        (-0)(-3)G                00346
//*                                                                     00350
//